%dim id
id=request.QueryString("id")%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from CompHonor where id="&id,conn,1,1
%>
<%=SiteName%>--<%=SiteTitle%>--<%=trim(rs("explain"))%>
">
<%if trim(rs("CompHonor"))<>"" then
response.write ""
else
response.Write ""
end if%>
<%=trim(rs("explain"))%>
<%
rs.close
set rs=nothing
%>